﻿Public Partial Class Wfrm_Perfil_Menu
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Session("usuario") = "1"

        Dim EXEC As New DotNetDal.SQLPersistence(False, "cnn", DotNetDal.SQLPersistence.Provider.SQLCLIENT)
        Dim Rp As New DotNetResponse.SQLPersistence
        EXEC.ExecuteDataTable(Rp, "SELECT     NPERFIL_PKi, Tnombre, Tdescripcion, Cestado, Accion, Accion_fecha, Accion_user FROM    SYS_PERFIL")
        CMB_PERFIL.DataSource = Rp.DtTable
        CMB_PERFIL.DataTextField = "Tnombre"
        CMB_PERFIL.DataValueField = "NPERFIL_PKi"
        CMB_PERFIL.DataBind()
        CMB_PERFIL.UpdateAfterCallBack = True

    End Sub

    Protected Sub CMB_PERFIL_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles CMB_PERFIL.SelectedIndexChanged

    End Sub
End Class